PLOTIT.OLD[MSS,LCS]1 - www.SailDart.org

perm filename PLOTIT.OLD[MSS,LCS]1 blob sn#128724 filedate 1974-11-04 generic text, type T, neo UTF8

00010	C  THIS PLOTS ON CALCOMP (OR TO XGP) STUFF FROM MDSK.DMP(DO PRNTX]
00055	C  LOAD WITH LOOK.FAI (FOR UNPAC ROUTINE)
00100		COMMON I,J,K
00200		DIMENSION M(1024)
00300		CALL PLOTS(N)
00400	1	READ(1)N,(M(J),J=1,N)
00500		DO 3 JJ=1,N
00550		CALL UNPAC(M(JJ),I)
00560	C  I  IS FIRST OF THREE LOCATIONS.
00600	3	CALL PLOT(I,J,K)
00700		IF(N.EQ.1024)GO TO 1
00800		TYPE 2
00900	2	FORMAT(' DON''T FORGET "FOR01.DAT" ON DSK.')
01000		END